home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue72 / dynimag / Listing1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-07-03  |  544 b   |  14 lines
  1. procedure Record2HTML(const DataSet: TDataSet; RecNo: Integer);
  2. var
  3.   fields: Integer;
  4. begin
  5.   for fields:=0 to Pred(DataSet.FieldCount) do
  6.     if DataSet.Fields[fields] IS TGraphicField then { GRAPHICS }
  7.       writeln('<b>',DataSet.Fields[fields].FieldName,':</b> ',
  8.         '<img src="',ScriptName,'?IMG=yes&RecNo=',RecNo,'&FieldName=',
  9.           DataSet.Fields[fields].FieldName,'"><br>')
  10.     else
  11.       writeln('<b>',DataSet.Fields[fields].FieldName,':</b> ',
  12.         DataSet.Fields[fields].AsString,'<br>')
  13. end {Record2HTML};
  14.